home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / canvas3.stk < prev    next >
Encoding:
Text File  |  1995-12-12  |  338 b   |  15 lines
  1. ;;; Canvas event bindings
  2. ;;;   (click on the bitmap)
  3.  
  4. (canvas '.c1)
  5. (pack '.c1 :fill "both" :expand #t)
  6.  
  7. (define i (.c1 'create 'bitmap 120 100 
  8.            :bitmap (string-append "@" 
  9.                       wtour-lessondir 
  10.                       "/../lib/iu.seal.small.xbm")
  11.            :background "grey"))
  12.  
  13. (.c1 'bind i "<Button-1>" (lambda () (display "CLICK\n")))
  14.  
  15.